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

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

'.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': '='
