21 lines
520 B
Haskell
21 lines
520 B
Haskell
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# LANGUAGE LambdaCase #-}
|
|
|
|
|
|
import Control.Exception (bracket)
|
|
import Control.Monad.Except
|
|
import qualified Database.PostgreSQL.Typed as PG
|
|
|
|
import ICAFocus
|
|
import ICAFocus.Get
|
|
|
|
import DBConfig
|
|
|
|
PG.useTPGDatabase myPGDatabase
|
|
|
|
main = bracket (PG.pgConnect myPGDatabase) PG.pgDisconnect $ \pg -> do
|
|
let lök_id = 1282116
|
|
(runExceptT $ getProduct pg lök_id) >>= \case
|
|
Right lök -> putStrLn $ "Lökat " ++ show lök
|
|
Left löklös -> putStrLn $ "Löklös? " ++ show löklös
|