blob: d15536c032658267c91143cf068bdf42b7e7b138 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{-# LANGUAGE Arrows #-}
module Bar where
import Control.Arrow
import Data.Text as Text
replace :: Text -> Text
replace = Text.map (\c -> if c == '_' then '.'; else c)
replace1 :: Text -> Text
replace1 = Text.map (\c -> if c == '_' ; then '.' else c)
replace2 :: Text -> Text
replace2 = Text.map (\c -> if c == '_'; then '.'; else c)
replace4 :: Text -> Text
replace4 = Text.map (\c -> if c == '_' then '.' else c)
addA f g = proc x -> if x == 0 ; then returnA -< x
; else returnA -< x
|
