mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

found a few places I can use newtype

Browse source 
for presumably some speedups
This commit is contained in:
Joey Hess 2011-05-21 11:07:08 -04:00
parent 813ff7f4b0
commit 1876db50f2
3 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
Backend.hs
View file

@ -33,7 +33,6 @@ module Backend (
) where ) where
import Control.Monad.State (liftIO, when) import Control.Monad.State (liftIO, when)
import Control.Monad (liftM)
import System.IO.Error (try) import System.IO.Error (try)
import System.FilePath import System.FilePath
import System.Posix.Files import System.Posix.Files

5
CryptoTypes.hs
View file

@ -9,11 +9,12 @@ module CryptoTypes where
import Data.String.Utils import Data.String.Utils
data Cipher = Cipher String -- XXX ideally, this would be a locked memory region -- XXX ideally, this would be a locked memory region
newtype Cipher = Cipher String
data EncryptedCipher = EncryptedCipher String KeyIds data EncryptedCipher = EncryptedCipher String KeyIds
data KeyIds = KeyIds [String] newtype KeyIds = KeyIds [String]
instance Show KeyIds where instance Show KeyIds where
show (KeyIds ks) = join "," ks show (KeyIds ks) = join "," ks

2
Touch.hsc
View file

@ -16,7 +16,7 @@ module Touch (
import Foreign import Foreign
import Foreign.C import Foreign.C
data TimeSpec = TimeSpec CTime newtype TimeSpec = TimeSpec CTime
{- Changes the access and modification times of an existing file. {- Changes the access and modification times of an existing file.
Can follow symlinks, or not. Throws IO error on failure. -} Can follow symlinks, or not. Throws IO error on failure. -}