Blog Post Title

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{-# LANGUAGE OverloadedStrings #-}

-- Some comment for formatting purposes
data SomeType = SomeType {
      murder :: String
    , danceFloor :: Int
} deriving (Show, Eq)

someFunc :: (a -> SomeType) -> [SomeType]
someFunc s = let x = x in map s

{- a multiLine
   comment
   for profit -}
main :: IO ()
main = putStrLn . show $ [1..10]

Fin.