cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

show docs in haddock

This commit is contained in:
Joey Hess 2015-05-18 00:37:50 -04:00
parent 4f925f982a
commit bdba36ea26
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Propellor/Property/HostingProvider/DigitalOcean.hs
View File

@ -9,7 +9,7 @@ import qualified Propellor.Property.Reboot as Reboot
import Data.List import Data.List
-- Digital Ocean does not provide any way to boot -- | Digital Ocean does not provide any way to boot
-- the kernel provided by the distribution, except using kexec. -- the kernel provided by the distribution, except using kexec.
-- Without this, some old, and perhaps insecure kernel will be used. -- Without this, some old, and perhaps insecure kernel will be used.
-- --
@ -40,7 +40,7 @@ runningInstalledKernel = do
findVersion kernelver <$> findVersion kernelver <$>
readProcess "file" ("-L" : kernelimages) readProcess "file" ("-L" : kernelimages)
-- File output looks something like this, we want to unambiguously -- | File output looks something like this, we want to unambiguously
-- match the running kernel version: -- match the running kernel version:
-- Linux kernel x86 boot executable bzImage, version 3.16-3-amd64 (debian-kernel@lists.debian.org) #1 SMP Debian 3.1, RO-rootFS, swap_dev 0x2, Normal VGA -- Linux kernel x86 boot executable bzImage, version 3.16-3-amd64 (debian-kernel@lists.debian.org) #1 SMP Debian 3.1, RO-rootFS, swap_dev 0x2, Normal VGA
findVersion :: String -> String -> Bool findVersion :: String -> String -> Bool