git.iko.soy/rel8
on master help sign in
Remove implicit call to quietSnake; that's what namesFromLabelsWith is for
dc69ccaShane O'Brien
rel8.cabal−1
compare with master
unifiedsplit
@@ -14,7 +14,6 @@ library
14 , base ^>= 4.14 || ^>=4.15
14 , base ^>= 4.14 || ^>=4.15
15 , bytestring
15 , bytestring
16 , case-insensitive
16 , case-insensitive
17− , casing
18 , contravariant
17 , contravariant
19 , hasql ^>= 1.4.5.1
18 , hasql ^>= 1.4.5.1
20 , opaleye ^>= 0.7.1.0
19 , opaleye ^>= 0.7.1.0
src/Rel8/Table/Name.hs+1−4
@@ -20,9 +20,6 @@ import Data.Functor.Const ( Const( Const ), getConst )
20import Data.List.NonEmpty ( NonEmpty, intersperse )
20import Data.List.NonEmpty ( NonEmpty, intersperse )
21import Prelude
21import Prelude
22
22
23−-- casing
24−import Text.Casing ( quietSnake )
25−
26-- opaleye
23-- opaleye
27import qualified Opaleye.Internal.HaskellDB.PrimQuery as Opaleye
24import qualified Opaleye.Internal.HaskellDB.PrimQuery as Opaleye
28
25
@@ -39,7 +36,7 @@ import Rel8.Table ( Table, Columns, Context, fromColumns, toColumns )
39namesFromLabels :: Table Name a => a
36namesFromLabels :: Table Name a => a
40namesFromLabels = namesFromLabelsWith go
37namesFromLabels = namesFromLabelsWith go
41 where
38 where
42− go = fold . intersperse "/" . fmap quietSnake
39+ go = fold . intersperse "/"
43
40
44
41
45namesFromLabelsWith :: Table Name a
42namesFromLabelsWith :: Table Name a