acme-php 0.0.3 → 0.0.4

raw patch · 2 files changed

+8/−7 lines, 2 filesdep +acme-left-pad

Dependencies added: acme-left-pad

Files

Prelude/PHP.hs +6/−5
acme-php.cabal +2/−2

Prelude/PHP.hs view

@@ -4,6 +4,7 @@ import Data.List (group) import Unsafe.Coerce (unsafeCoerce) import Prelude hiding (foldr, foldl, subtract, elem, notElem, (&&), (||), not, otherwise, Bool)+import Data.Text.LeftPad  data Bool = TRUE | FALSE | FILE_NOT_FOUND deriving (Bounded, Enum, Eq, Ord, Read, Show) @@ -35,7 +36,7 @@     [(x, _)] -> x  instance Num String where-  fromInteger = show+  fromInteger n = leftPad (show n) 15 ""    (+) x y = show (intval x + intval y)   (-) x y = show (intval x - intval y)@@ -94,11 +95,11 @@  -- sort function, optimized for lists -- TODO - profiling-sortBy compare = head . head . dropWhile (isn't unsafeCoerce . drop 1) . group . iterate bubble+sortBy compare = head . head . dropWhile (isn't unsafeCoerce . drop 1) . group . iterate go   where-    bubble [] = []-    bubble [x] = [x]-    bubble (x:y:ys) = if compare x y == GT then y:(bubble (x:ys)) else if compare x y == EQ then x:(bubble (y:ys)) else if compare x y == LT then x:(bubble (y:ys)) else x:y:(bubble ys)+    go [] = []+    go [x] = [x]+    go (x:y:ys) = if compare x y == GT then y:(go (x:ys)) else if compare x y == EQ then x:(go (y:ys)) else if compare x y == LT then x:(go (y:ys)) else x:y:(go ys)  isn't f x = if f x then False else True

acme-php.cabal view

@@ -6,7 +6,7 @@ -- The package version. See the Haskell package versioning policy -- (http://www.haskell.org/haskellwiki/Package_versioning_policy) for -- standards guiding when and how versions should be incremented.-Version:             0.0.3+Version:             0.0.4  -- A short (one-line) description of the package. Synopsis:            The flexibility of Haskell and the safety of PHP@@ -49,7 +49,7 @@   Exposed-modules:     Prelude.PHP      -- Packages needed in order to build this package.-  Build-depends:       base >=4 && <5+  Build-depends:       acme-left-pad >=2, base >=4 && <5      -- Modules not exported by this package.   -- Other-modules: