module Yi.Snippets.Haskell where

import Yi.Snippets

hsFunction :: SnippetCmd ()
hsFunction = snippet $
  cursorWith 1 "f" & " :: " & cursor 2 & "\n" &
  cursor 3 & " = " & cursor 4 & "\n"

hsClass :: SnippetCmd ()
hsClass = snippet $
  "class " & cursor 1 & " " & cursor 2 & " where\n  " & cursor 3