Generate both a Haskell function and a SQL express

Run Settings
Language	Haskell
Language Version
Run Command

1
2
3
4
5
6
7
8
9
10
11
{-# LANGUAGE GADTs, KindSignatures, TypeOperators #-}
data InvoiceLine = InvoiceLine
    { ilDescription :: String
    , ilQuantity    :: Int
    , ilAmount      :: Int
    }
data (:->:) :: * -> * -> * where
    Sum        :: e :->: Int -> [e] :->: Int
    (:-:)      :: e :->: Int -> e :->: Int -> e :->: Int
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Editor Settings
Theme
Key bindings
Full width
Lines	10

Snippet Metadata
Owner	rightfold
Created	9 years ago
Modified	9 years ago
Visibility	Public