khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-12-29 15:03:31 +03:00
Code Issues Projects Releases Wiki Activity

examples/HDBC/Oracle: apply new defined instances.

Browse Source
This commit is contained in:
Kei Hibino 2018-07-17 11:45:47 +09:00
parent 9e85f7ca1f
commit 19f22e0486
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
examples/HDBC/Oracle/src/DataSource.hs
View File

@ -2,12 +2,9 @@
module DataSource where
import Control.Applicative ((<$>), pure)
import Data.String (fromString)
import Control.Applicative ((<$>))
import Database.HDBC.ODBC (Connection, connectODBC)
import Database.Relational (LiteralSQL (..))
data Option = Option
{ dsn :: String
, uid :: String
@ -35,7 +32,3 @@ connect = connectODBC . dsString . option =<< getParam
getOwner :: IO String
getOwner = owner <$> getParam
instance LiteralSQL Integer where
showLiteral' = pure . fromString . show