     'body': '${1:name} <- ${0:expression}'
   'Main':
     'prefix': 'main'
-    'body': 'module Main where\n\nmain :: IO ()\nmain = ${0:putStrLn "Hello World"}\n'
+    'body': '''
+      module Main where
+
+      main :: IO ()
+      main = ${0:putStrLn "Hello World"}\n
+      '''
   'Right Arrow':
     'prefix': '>'
     'body': '${1:expression} -> ${0:expression}'

    'body': 'type ${1:Type} = ${0:Other}'
  'where …':
    'prefix': 'where'
    'body': 'where\n\t${0:definitions}'
'.source.haskell:not(.comment)':
  'Guard':
    'prefix': '|'

'.source.haskell .constant.language.nil':
  'List Comprehension':
    'prefix': '['
    'body': '[ ${1:expression} | ${2:${3:name} <- ${4:expression}}$0]'
'.source.haskell .meta.function.type':
  'Type Constraint':
    'prefix': '='
